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DISKSVMSMASTE 

ZTITLE ‘ED Tpeseaneny - parse driver’ 
MODULE EDTSPRPARDRV ( ! Parse driver 
“DENT = *v04-000' 


BEGIN 


VRE RRA R REAR REAR AERA AAE EEA AAA AAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
4 ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 
* 
® 
* 
* 
® 
& 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Yee RRA RARER ERA AA AEA ERATE EAA REAR AERAAAAAAERAAEAAARERERE 
' 


"FACILITY: EDT == The DEC Standard Editor 

ABSTRACT: 

Parse driver. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 
MODIFIED BY: 

i 1-001 = Original. DJS 25-Feb-1981. This module ues af rented by 
| t-gog HegStarhrbengeeoTesge- Selma cHgpmomul® PARSER 

i 17008 = Use. 

' 
ie 


1981 
- Use the ASSERT macro. JBS 01-Jun-1981 
1-004 - Improve the appearance of the Listing. JBS 17-Jun-1983 
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SRC JPRPARDRV.BLI;1 
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EDTSPRPARDRV - 
Declarations 


EDTSPRPARDRV 


In the routine 


TABLE OF CONTENTS: 
EQUATED SYMBOLS: 


INCLUDE FILES: 
EXTERNAL REFERENCES: 


OWN STORAGE : 


REQUIRE "EDTSRC: TRAROUNAM'; 
FORWARD ROUTINE 

REQUIRE "EDTSRC:PARLITS'; 
REQUIRE "EDTSRC:PARSYNTBL'; 
REQUIRE ‘EDTSRC:PARLABTBL'; 


GPA TMOPR- OPO CUM T 


wo 
MINIUAINIAIIN DO OOOO0O0O 


IMPLICIT OUTPUTS: 

EDT$$A_PA_TBLPTR 
ROUTINE VALUE: 

The value of the routine is 1 for success and zero for failure. 
SIDE EFFECTS: 

Calls semantic routines 


BEGIN 


mM 3 
EDTSPRPARDRV DTSPRPARDRV - parse driver 16-Sep-1984 01:21:4 VAX-11 Bliss-32 V4.0-74 Page 3 
42000 DTSSPA_DRIV - parse driver 13288-1382 RE DEEKSUMGMASTERSCEDT  SRCTPRPARDRV.BLIs}” (3) 
1 9 ZSBTTL ‘EDTSSPA_DRIV = parse driver’ 
§ ¢ GLOBAL ROUTINE EDTSSPA_DRIV ( ! Parse driver 
¢ z TAB_INDEX ! Start parse here 
6 RS 
7 4] '++ 
f ! FUNCTIONAL DESCRIPTION: 
10 89 This is the parse table driver routine. TAB_INDEX indexes a byte in 
1 + the parse table at which the parse starts. 
: 4 This routine loops, fetching the next operator and execting until 
d, 9 either a RETURN or ABORT command is executed, or a semantic routine 
5 Be returns failure. 
$09 FORMAL PARAMETERS: 
$05 TAB_INDEX Index into the parse table at which to start the parse 
89 IMPLICIT INPUTS: 
6g NONE 
0 
04 
05 
6 
7 
8 
9 
0 
5 
7 
8 
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a ee et ee ce ee ee ee ce ce ee ce ce ee ec ce ec ce et ec ee aD ee ee ee ee a ee ed ed ed 


0 EXTERNAL ROUTINE 
1 EDTSSPA_SCANTOK : NOVALUE, ! Get the next token 
§ EDTSSPA_TSTTOK, ! Try to match the current token 
Z EDTSSPA_SEMRUT; ! Semantic routines referenced in the parser tables 
5 EXTERNAL 
7 § EDTSS$A_PA_TBLPTR; ! pointer into the parse table 
39 8 LOCAL 
40 OP_CODE, ' The parse table op-code 
41 0 OPERAND ' The parse table gperand 
4g 1 SEM_ROU ' Number of semantic routine for select 
43 j RETORN_ADDR; i The address to return to after a call 
45 ‘ EDT$$A_PA_TBLPTR = PARSE_TABLE [.TAB_INDEX); 
t3 6 dO 


nN 3 
EDTSPRPARDRV EDTSPRPARDRV = parse driver 1o~sen~ 138% 91:8) :6 VAX-11 Bliss-32 Pied Page 4 
v04-000 EDTSSPA_DRIV = parse driver 14-Sep-1984 724:1 DISKSVMSMASTER: CEDT.SRCJPRPARDRV.BLI;1 (3) 
; 133 1638 - BEGIN 
: 150 14 § i Fetch the op_code and the operand from the table and bump 
3 12) 1eet } past them. 
; 138 1448 : CODE = .(.EDTS$A_PA_TBLPTR)<5, 3: 
3 6154 144 OPERAND = (.EDTSS$A_PA_TBLPTR)<O, 5>; 
; 139 aad EDTS$A_PA_TBLPTR = -EDTSSA_PA_TBLPTR + 1; 
: 157 1446 4 IF (.OPERAND EQL 0) 
ia ii, 
: 199 14a ; Here if operand is 0. This means it is a long-form operand. 
: 168 1451 4 BEGIN 
s 16 1026 4 OPERAND = .(.EDTSSA_PA_TBLPTR)<O, 8>; 
> 164 1453 4 EDTS$A_PA_TBLPTR = -EDTS$A_PA_TBLPTR + 1; 
3; «165 1454 END; 
: 188 1088 3 1 
: 168 1457 i And now, let's case on the operand. 
Oboe Bi 
: 171 1460 CASE .OP_CODE FROM OPC_ABORT TO OPC_SELECT OF 
: i 1262 me 
: ir 1468 i COPC abort : ! This one is easy enough 
: 176 1465 4 RETURN (0); 
ie ie e 
: 179 1468 3 COPC_ACTION) : ' Perform the specified action routine. 
. oe m9 
; 186 160] 2 IF ( NOT EDTSSPA_SEMRUT (.OPERAND, EDTSSA_PA_TBLPTR)) THEN RETURN (0); 
. ce 0: 
: 196 1O02 i COPC_CALL] : ! Call; save current pointer and call yourself. 
; 188 1477 4 RETURN_ADDR = .EDTS$SA_PA_TBLPTR; 
; Hb 1479 2 IF EDTSSPA_DRIV (.LAB_TAB C.OPERAND - 1)) § 
; 198 1481 4 7 EDTSS$A_PA_TBLPTR = .RETURN_ADDR 
> 19% 1288 4 RETURN (0); 
3; «195 1484 4 
; 138 165? ; END; 
F ph 1287 ? Core sored : ! Just get the new table address and continue. 
: 200 1489 4 EDISSA_PA_TBLPTR = PARSE_TABLE [.LAB_TAB C.OPERAND = 1); 
; 83 1e3y ; END; 
: 08 1336 COPC_OPTION) : ! Skip if the current token is not the optional one. 
; 204 1495 4 BEGIN 
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IF EDTSSPA_TSTTOK (.OPERAND) 
THEN 


BEGIN 
EDTS$SPA_SCANTOK (); 
EDTSSA_PA_TBLPTR =" .EDTSSA_PA_TBLPTR + 1; 
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ELSE 
EDTSSA_PA_TBLPTR = PARSE_TABLE [.LAB_TAB [.(.EDTS$A_PA_TBLPTR)<O, 8> = 1]]; 
END; 
IF EDTSSPA_TSTTOK (.OPERAND) THEN EDTSSPA_SCANTOK () ELSE RETURN (0); 
END; 
EOPe SELECTS : ! Loop through the possible tokens, loo’.ing for it. 
LOCAL 
SELECTED; 


SEM_ROUT = .(.EDTS$SA_PA_TBLPTR)<O, 8>; 
EDTS$A_PA_TBLPTR = .EDTS$A_PA_TBLPTR + 1; 
SELECTED = 0; 


INCR_I FROM 1 TO .OPERAND DO 
BEGIN 
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If _EDTSSPA_TSTTOK (.(.EDTSSA_PA_TBLPTR)<O, 8>) 
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BEGIN 

EDTSSA PA. TBLPTR = PARSE_TABLE C.LAB_TAB [.(.EDTS$A_PA_TBLPTR + 1)<0, 8> - 1]); 
EXITLOOP; 

END; 


EDTSSA_PA_TBLPTR = .EDTSSA_PA_TBLPIR + 2; 


IF ( NOT EDTSSPA_SEMRUT (.SEM_ROUT, .SELECTED)) THEN RETURN (0); 
IF (.SELECTED NEQ 0) THEN EDTS$SPA_SCANTOK (); 
END; 
COPC_RETURN] : ! And another easy one. 
RETURN (1); 
END; 


Core PeCUInE 2 ! Abort if the current token is not the required one. 
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; Name Bytes Attributes 
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; Library Statistics 
: ewoceeee= Symbols -------- Pages Processing 
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